admin_saveipconfig.asp 星梦奇缘交友网 1 - ASP源码程序

www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/admin_saveipconfig.asp
    <!-- #include file="config.asp" -->
<!-- #include file="style.asp" -->
<!-- #include file="admin_verify.asp" -->



<%
Response.Expires=-1

dim ids,iids
if Request.Form("savediplist1")<>"" then
ids=split(Request.Form("savediplist1"),",")
	for each iids in ids
		if isnumeric(iids)=false or iids="" then
			Response.Write "<html><meta http-equiv=refresh content=0;url=admin.asp></html>"
			Response.End
		end if
	next
end if
set ids=nothing
if Request.Form("savediplist2")<>"" then
ids=split(Request.Form("savediplist2"),",")
	for each iids in ids
		if isnumeric(iids)=false or iids="" then
			Response.Write "<html><meta http-equiv=refresh content=0;url=admin.asp></html>"
			Response.End
		end if
	next
end if


sub splitip(byref sourceip,byref dest1,byref dest2)
	dim si,ini

	for si=0 to ubound(sourceip)
		ini=instr(1,sourceip(si),"-")
		if ini>1 and ini<len(sourceip(si)) then
			dest1(si)=iptohex(left(sourceip(si),ini-1))
			dest2(si)=iptohex(mid(sourceip(si),ini+1))
		end if
	next
end sub





'Get and Process Parameters

tip1=split(Request.Form("txt1"),chr(13)&chr(10))
redim tstartip1(ubound(tip1)),tendip1(ubound(tip1))
splitip tip1,tstartip1,tendip1

tip2=split(Request.Form("txt2"),chr(13)&chr(10))
redim tstartip2(ubound(tip2)),tendip2(ubound(tip2))
splitip tip2,tstartip2,tendip2


tipconstatus=Request.Form("ipconstatus")
if tipconstatus<>"0" and tipconstatus<>"1" and tipconstatus<>"2" then tipconstatus=0


'Write to DB
set cn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
CreateConn cn,dbtype

if Request.Form("savediplist1")<>"" then rs.Open "DELETE FROM ipconfig WHERE listid IN (" &replace(Request.Form("savediplist1"),"'","") &")",cn
if Request.Form("savediplist2")<>"" then rs.Open "DELETE FROM ipconfig WHERE listid IN (" &replace(Request.Form("savediplist2"),"'","") &")",cn

dim i
for i = 0 to ubound(tstartip1)
	if len(tstartip1(i))=8 and len(tendip1(i))=8 and tstartip1(i)<=tendip1(i) then rs.Open "INSERT INTO ipconfig(ipconstatus,startip,endip) VALUES (1,'" &tstartip1(i)& "','" &tendip1(i)& "')",cn
next
for i = 0 to ubound(tstartip2)
	if len(tstartip2(i))=8 and len(tendip2(i))=8 and tstartip2(i)<=tendip2(i) then rs.Open "INSERT INTO ipconfig(ipconstatus,startip,endip) VALUES (2,'" &tstartip2(i)& "','" &tendip2(i)& "')",cn
next

rs.Open "SELECT ipconstatus FROM config",cn,0,3
rs(0)=tipconstatus
rs.Update
rs.close
		
Response.Redirect "admin_ipconfig.asp"

%>